Sprite 1984 - 1993/Sprite 1984 - 1993.iso/src/cmds/fsinfo/pfork

Text File | 1991-10-05 | 167 b | 9 lines

#!/usr/bin/perl

if ($pid = fork) {
  print "I'm the parent of ", $pid, "\nwho waited on ", wait, "\n";
} elsif (defined $pid) {
  print "I'm the child.\n";
  exit;
}